*NONLOC

((66 . 2)) 
*




**
*
*(GRINDEF TEST)


(DEFPROP TEST
 (LAMBDA NIL (MAPC (FUNCTION (LAMBDA (X) (RPLACA X 66))) NONLOC))
EXPR)

NIL 
*
*(COMPILE TEST)
* (NONLOC) UNDECLARED FREE VARIABLES IN TEST 
(LAP TEST SUBR) 
       (PUSH P (SPECIAL NONLOC) S) 
 TAG1  (MOVE 1 0 P) 
       (JUMPE 1 TAG6) 
       (HLRZ@ 1 0 P) 
       (MOVEI 2 (QUOTE 66)) 
       (HRLM@ 2 1) 
       (HRRZ@ 2 0 P) 
       (PUSH P 1) 
       (MOVEM 2 -1 P) 
       (POP P 1) 
       (JRST 0 TAG1) 
 TAG6  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 
*COMPILER ERROR* LDLSTLEFT-PASS2 

*
*↑C
↑C

.R PPSAV